(find-alternate-file): Hide truename and inode number

temporarily, like the visited file name.

diff --git a/lisp/files.el b/lisp/files.el
index a9430029d5673dc461bb9f5b8c0aeeda20c9f983..77242e05e92243ebde8458e55f723dde5899a8da 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -421,15 +421,21 @@ If the current buffer now contains an empty file that you just visited
        (error "Aborted"))
   (let ((obuf (current-buffer))
        (ofile buffer-file-name)
+       (onum buffer-file-number)
+       (otrue buffer-file-truename)
        (oname (buffer-name)))
     (rename-buffer " **lose**")
     (setq buffer-file-name nil)
+    (setq buffer-file-number nil)
+    (setq buffer-file-truename nil)
     (unwind-protect
        (progn
          (unlock-buffer)
          (find-file filename))
       (cond ((eq obuf (current-buffer))
             (setq buffer-file-name ofile)
+            (setq buffer-file-number onum)
+            (setq buffer-file-truename otrue)
             (lock-buffer)
             (rename-buffer oname))))
     (or (eq (current-buffer) obuf)